home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / Breaks.DEF < prev    next >
Text File  |  1988-03-15  |  622b  |  22 lines
  1. (********************************************************************************
  2.  
  3. Name         : Breaks.DEF
  4. Version      : 1.0
  5. Purpose      : user break detect
  6. Authors      : cn/jr/ms/red
  7. Modified     : 13.3.86  10:00  ms
  8. State        : untested
  9. Requirements : 
  10.  
  11. ********************************************************************************)
  12.  
  13. DEFINITION MODULE Breaks;
  14.  
  15. TYPE BreakFlags = (breakC, breakD, breakE, breakF);
  16.  
  17. PROCEDURE DetectBreak(flag: BreakFlags): BOOLEAN;
  18. (* DetectBreak returns TRUE if the requested break flag is set.
  19.    The tested flag is always cleared!                            *)
  20.  
  21. END Breaks.
  22.